home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
et
/
tutorial
/
docs.lha
/
documentation
/
app_e.eps
(
.svg
)
< prev
next >
Encapsulated PostScript
|
1993-08-09
|
55KB
|
557x1021
|
8-bit (77 colors)
Labels:
black
|
darkness
OCR:
'shapel'lListing 9 =:10 12 E:Lernabschnitt15:1shape1 Dec:20:11:30:1991::File::shape1.C.::Page:1 "[ w -~ //:File::shape1.C ***3 }{ ***4 //:ET++:TUTORIAL 5 11 :::6 //:Lernabschnitt:5: Command:& Menu 7 }} 8 #include:"ET++.h" #include:"ShapeDocument.h" static:char: aboutMsg- "Extended version:of:twoshapes:illustrating undoable:commands"; :::15 :::16 int:cMAXINKS:=:50: :::17 :::18 Ink:*palette[cMAXINKS); :::19 :::20 Symbol:cDocTypeShapes ("TWOSHAPES"); :::21 :::22 :::23 :::24 //----ShapeApplication:- :::25 :::26 class:ShapeApp::public:Application: :::27 public: :::28 MetaDef(ShapeApp); :::29 30 :::31 ShapeApp(int:argc, char:*argv[]); ::::~ShapeApp(); ::::Document:"DoMakeDocuments(Symbol) :::32 :::33 :::34 {return:new:ShapeDocument():) :void:About() 35 ShowAlert(eAlertNote, aboutMsg):) :::36 }; :::37 38 Metalmpl0(ShapeApp): :::39 40 ShapeApp::ShapeApp(int:argc,char:*argv[]): Application (argc,:argv, cDocTypeShapes) :::41 :::42 Applinit(): :::43 44 palette[0]:ePatWhite; :::45 :::46 palette[1]=new:RGBColor((float)0.75); ::::palette[2]= new:RGBColor((float)0.5): palette[3]=new:RGBColor((float)0.25); palette[4]-ePatBlack; 47 48 :::49 palette [5]=ePat00; :::50 palette [6]=ePat01; :::51 ::::palette [7]=ePat02; 52 53 palette[8]-new:RGBColor(255, 0, 0); palette[9]-new:RGBColor(0, 255,:0); ::palette[10]=new RGBColor(0, 0, 255); :::54 :::55 :56 :::57 :::58 ShapeApp::-ShapeApp() :::59 60 SafeDelete(palette[1]); Ch.Frei,.SchaudtE Software Schule Schweiz Anhang E Seite: E13